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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3K kK 002500 2790 198 DC A(ENTPT POINT TO MAP ENTRY POINT TABLE 
i Peer ete Pete eet eee ee ee TET eee PCO eT re ee ee ET ET TOT eer Tren 199 Ere CeeeT Steerer Trees eeerereeeeer tte eset Pe Lt ee LETT eee Te Eee LT Tt eee eee 
5 x * VAUOMR S RTS SS SS SSS SPS PSS SSL SSFP ST STS SS SS SST SSS TS SST SST SSS ST SS SS SSS SSS SSS ESS TS SS 
6 * 4k PREREQUISITES ee x 201 ** nes 
7 x * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3CO0) 2k 
8 x NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER tk 
9 x * 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR * 
10 JR ORG ICCC CCIE CG GEC GI aOR OK aI a ack ak ak ie ak 205° ** THE INDICATED MESSAGE (S). THERE ARE FOUR TABLES USED FOR THIS * * 
11 * * 206 7. PURPOSE THEY ARE: .* 
* KK O KK * 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST x 
15 * one * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. 2 k 
16 FR OI RIOR ICCC CC i ca IC CRICK dak a dai ak kok tok ik tok ak 211 ** ENTRIES ARE AS FOLLOWES * * 
+. 1 Bhs! Spas SoGbek Ea "puesRe SET AEE : 
8 * #K EA'tS INCORPORATED CK * 
a5 x J - z * 214 ** Cc AN EQUATE FOR THE STEP NUMBER 2 2k 
20 * NONE * 215 ** 2K 
31 x x 216 *x RULE INFORMATION TABLE tek 
22 Jeo oo go ai aca ag a oa gi io a dak kak kaka kc aciok ak 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE ** 
23 * : 518 ee UNIQUELY DEFINED AREA INDICATED BELOW. ERD OF TABLE LS + 
yo KK SPECIAL INSTRUCTIONS KK x 2 : 
aps x . ue Xe 220 ** INDICATED WITH A X*OO00' FOR THE RULE EQUATE. ek 
26 * NONE * 221 ** *% 
27 * * 222 ** SQUES 4k 
28 KOK RK a OOK A IC tak a I ak ak ak aie fea ke ae ake cae ak ake af of te ak ak ofc ae kc 223 ** 4] RULE EQUATE X*0100! * 
59 x * 224 pied B) ADDRESS OF THE YES LEG RULE ss 
* KK Aan os O CK * 
* A 0 9 ATE x 
35 3 RC. 795391 EG. 375209, EAC. nC. * 238 4% B} ADDRESS OF MESSAGE TO PRINT + 
34 * * 
35 SCO oi ial oi icicioiioigiok tak iakaioioioiaiaiciaici ac ack ak ak aie ak aka ae akak akak ak ak a ak ake ake ake ake a 239 nie $STOP A) RULE EQUATE x*0102" ci 
0 0 7 x*'*25008 ADDRESS OF ALL 'I'* O 
00%00 34 zrAts Foon 16700" ROUTED VELUE FOR MDI STATEMENT © : 252. *% BI ADDRESS OF MESSAGE * 
000101 39 @FIXT EOU X'0101'! EQUATED VALUE FOR MDI STATEMENT 233. ** iba 
000102 40 @STOP FOU xX'0102! EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO 2 
000200 41 @GOTO EQU x*0200° EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X'0200! * % 
000201 42 @CALL EQU X¥'0201' FOUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE aa 
000300 43 @INPT U X'0300! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO * 
000400 G4 @QUXX EOU xXx'O4OO0!? EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE =e 
000500 45 aTuxx EOU x'0500! EQUATED VALUE FOR MDI STATEMENT 23 im E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE % 
000600 46 @NVLD EQU x*0600' EQUATED VALUE FOR MDI STATEMENT 241 ** * 
000000 47 EQ EOU) x*0000! EQUATE FOR 242 ** $SCALL * & 
000004 48 NE FOU) x'OoOoOo4! EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X'0201' * 
000008 49 HT FOU x*OO0O08* EQUATE FOR ZUR ** B) ADDRESS OF MESSAGE apes 
00000C 50 NH FOU x'OoO00C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL * 
000010 51 LO EOU X¥'00108 EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE % % 
000014 52 NL EQU x'o0148 FOUATF FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * 
000010 53 LT FOU xX'0010! EQUATF FOR LESS THAN 248 ** +* 
00000C 54 LE EQU x'oO00C! FOUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT ee 
000008 55 GT EQU x'ooos' EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X'0300! 2K 
000014 56 GE EOU x'O0O148 EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE (EBCDIC OR HEX) * * 
000200 57 ON EQOU. x'0200! EQUATE FOR ON go2. ** C) ADDRESS OF YES LEG RULE * 
000202 58 OF EOU X¥'0202! EOUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA * % 
000204 59 MX FOU x*0204! EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA ** 
000000 60 EBC EQU xX¥*0000! EQUATE FOR EBCDIC DATA TRANSFER 255: *F F) LOWER LIMIT OF GOOD DATA * % 
000001 61 HEX FOU x'0001'8 EQUATE FOR HEX DATA TRANSFER 256 2% G) HIGHER LIMIT OF GOOD DATA * 
000001 62 XTRNL EQU  xX*'0001! FOUATE FOR EXTERNAL REFERENCE 25] ** * 
000000 63 INTRNL EQU x' 0000! EQUATE FORK INTERNAL REFERENCE 258 ** $QUXX * 
000000 64 PARM EQU xX¥'O00008 EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X'O4O00! * 
000001 65 DA EOU X*Q0001! EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE * 
000002 , 66 UA FOU xX*'0002! EQUATE FOR UNIT ADDRESS 261 ** C) TU RRANCH TO ADDRESS at * 
000000 67 DUMMY EQU X¥'oQO008 DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) eK 
001800 69 PID EQU *-xX'ODOO! ADDRESS OF MDI HEADER 203 ¥* E) LENGTH OF PARAMETER IN BYTES * 
000232 70 PTYP OU *-X'22CE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU * x 
00180C 71 STEPNUM EQU PID+xtOOO0C! ADDRESS OF DECIMAL STEP NUMBER 26). 2% G) STORE ADDRESS FOR FIPST 8 WORDS OF PARAMETER * 
00180E 72 OPWD1 EOU PID+X'OOOE! ADDRESS OF OPTION WORD ONE 266 ** * 
001810 73 OPWD2 EOU PID+X'0010! ADDRFSS OF OPTION WORD TWO 267 ** STUXX ek 
001818 74 TUSTATUS EQU PID+X*0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE x'0500! 2 K 
OO0181A 75 TUWORK EQU PID+tXtOO1A! ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE * 
00189A 76 TUPARM1 EDU PID+X'OOQA® ADDRESS OF PARM 1 POINTER 210 ** C) TU BRANCH TO ADDRESS ** 
00189C 77 TUPARM2 EQU  pPID+x'009C! ADDRESS OF PARM 2 POINTER He Ne ea D) TYPE OF COMPARE TO MAKE ON RESULTS * 
00189E 78 TUPARM3 EQU PID+4X'OO9E! ADDRESS OF PARM 3 POINTER Zio, ** E) LENGTH OF COMPARED RESULTS * 
0018A0 79 TUPARMGY EQU PID+X'OOAO! ADDRESS OF PARM 4& POINTER 213 ey F) MASK FIELD FOR CCMPARE * 
0018A2 80 TUPARMS EQU PID+4X'OOA2' ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES * 
OO18A4 81 TUPARM6 EQU  PID+4X'OOA4! ADDRESS OF PARM 6 POINTER 215 ** H) PARAMETER TO PASS TO THE TU * 
0018A6 82 TUPARM7 EQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 216 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
0018A8 83 TUPARMS8 FOU PID+X'OOAS8! ADDRESS OF PARM 8 POINTER 2)] ** ** 
OO18AA 84 TUPARM9 EQU  PID+X'OOAA® ADDRESS OF PARM 9 POINTER 278 ** SNVLD ** 
0018AC 85 TUPARM10 EOQU PID+X'OOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*0600! salad 
OO18AE 86 TUPARM11 EQOU PID+X'OOAE! ADDRESS OF PARM 11 POINTER 281 ** baled 
0018B0 87 TUPARM12 EQU PID+X'OOBO® ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * + 
001882 88 TUPARM13 EQU PID+X*'QOB2! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * 
0018B4 89 TUPARM14 EOQU PID+X'OOB4? ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: ek 
0018B8 91 TUPARM16 EQU PID+XtOOB8! ADDRESS OF PARM 16 POINTER 286 ** * 
OO18BA 92 TUMSGWTR EQU PID+X*OOBA® ADDRESS OF -> TO COMMON MSG WRITER 287 ** 3} NAME OF ENTRY POINT ex 
0018BE 93 TUUA zou PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE * * 
0018C0 94 TUDA EOU PID+X*'O0CO® ADDRFSS OF DEVICE ADDRESS IN EBC 289 ** ** 
0018C2 95 TUBUFF EOU PID+X'00C2° ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A X*'0000! ** 
0018C4 96 TULAST EOU PID+X'OOC4" ADDRESS OF LAST ADDRESSABLE WORD 291 ** ¥* 
0018C6 97 TURESULN EQU PID+X'OOC6§ ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE <* 
0018C8 98 TURESUL FQU PID4+X'OOC8! ADDPESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ** 
0018FC 99 MAPNAME ah PID+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: seed 
001948 100 TUINPT EQU PID+x'0148°! ADDRESS OF $INPT DATA 295 ** * 
00196E 101 PARMARA EQU PID+X'O16E! ADDRESS OF ¢$INPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK * * 
0019B8 102 @DCADD1 EOU PID+X'O1B8' MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE +> 
OO019BA 103 @DCADD2 EQU PID+X'O1BA* MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * * 
0019C4 104 SUPSTAT OU PID+X'O1C4U? ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE sae 
0019D0 105 DEVADD EQU PID+#X'O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE * 
O019DA 106 DEVADD1 EQU PID+X'Q1DA! ADDRESS OF DEVICE ADDRESS TABLE 1 301 ¥* F) SECOND LINE OF MESSAGE ** 
QO19E4 107 DEVADD2 EQu BID+*X1O1EU! ADDRESS OF DEVICE ADDRESS TABLE 2 Bie cis G) ETC. ine 
+ 
0019FB 109 DEVADDS FOU Se a a opeEee Ge ae ose Tee ae ; 304 2K ROCIO ROO ICO IIR II IOI I IR I IR a a a aOR ROR I GRR ak a ak 
001A02 110 DEVADDS EQU PID+X*0202' ADDRESS OF DEVICE ADDRESS TABLE 5 BOD KK KK oo KK OR KK OK KKK ROR OK KKK ok tok kok kok kogOK RK tok kak aK RRR oR ok 
001A0C 111 DEVADD6 EQU PID+X'020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A 16 V2 DEVADD7 E ee PID+X'0216' ADDRESS OF DEVICE ADDRESS TABLE 7 
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I7A16 --- COMMON ADAPTER SUB MAP P/N=6826990 EC=375222 PAGE 05 LTA16. === COMMON ADAPTER SUB MAP P/N=6826990 EC=375222 PAGE OSA 
LOCTR OBJFCT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000027 OO4+NT EQU 39 7 1 NO INTERRUPT EXPECTED E 000008 1112 EIGHT EQU 8 
000028 995+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS 000009 1113 NINE EQU 9 
000029 996+4CSA EQU 4 9 4 CYCLE STEAL AVAILABLE OOOOOA 1114 TEN EQU 10 
OO002A 997+CE EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 00000B 1115 ELEVN EQU 11 11 
00002B 998+ISBON EQU 43 11 1 ISB BITS ON ot 00000C 1116 TWELV EQU 12 12 
00002C 999+N EQU uy 12 8 TEST UNIT RESULTS NO GOOD 00000D 1117 THRTN EQU 13 13 
00002D 1000+IOCC EOQU 45 13 7 OIO CC ERROR OOO000F 1118 FIVIN EQU 15 15 
000025 1001+NOIN EQU 46 14 2 NO INTERRUPT 000010 1119 SIXTN EQU 16 16 
00002F 1002+INCC EQU 4u7 15 1 INTERRUPT CC ERROR 000020 1120 THRY2 te 32 32 
1003+* 000040 1121 SIXTY EQU 64 64 
1004+* COMMON BUFFER FOR PRINTING DATA 000080 1122 ONE28 EQU 128 128 
1005+* 000100 1123 TWO56 zou 256 256 
0030BC 0000 1007+$TUID DC A (*-* TEST UNIT IDENTIFICATION 000400 1124 ONEK EQU 1024 1024 
0030BE 0000 1008+$IOIN DC A (*-* I/O AND INTR CONDITION CODES 000800 1125 TWOK EQU 2048 2048 
0030C0 0000 1009+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 000C00 1126 THREK EQU 3072 3072 
0030C2 0000 1010+LSTIO DC A (*-* ADRS OF LAST I/O + 4 BYTES 001000 1127 FOURK EQU 4096 4096 
0030C4 0000 1011#DEV1 DC A (*-* DEVICE DEPENDENT DATA FFFFFF 1129 M1 EQU =1 = 
0030C6 0000 1012+#+DEV2 DC A (*-* * FFRFFEE 1130 M2 EQU =2 -2 
0030c8 0000 1013+#DEV3 DC A (*—* * FFFFFD 1131 M3 EQU 73 -3 
0030CA 0000 1014+#DEV4 DC A (*-* CS STATUS ERROR ISB & INTR CC FFFFFC 1132 M4 EQU -4 ~-4 
0030C4 10 15+SCTID EQU DEV1 READ ID BUFFER FOR IBIS §& TERN SVM TS TF SST SS FS SS FST TT PSST TSS S SSS TSS SST SS SS SSS SSS SSS SS SSCS CSCC SL £2 2 2 
0030CC 1016+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 1135 * * 
0030CcC 0000 1017+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 1136 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
0030CE 0000 1018+DCB2 DC A k—* LAST DCB TABLE, DEV DEP WORD 1137 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
0030D0 0000 1019+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 1138 * * 
0030D2 0000 1020+DCB4 pc A (*-* LAST DCB TAPLE, DEV DEP WORD SPCR ST SPSS FTF SSS SSL LS SS TLE STS SS SS SSS SSS TSS SSE SST SS SSS SSS CSS CSS SSL SCSCS £2 et 2 2 23 
0030D4 0000 1021+#DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000000 1140 BSO EQU 0 
0030D6 0000 1022+DCB6 DC A (*—* LAST DCB TABLE, CHAIN ADRS 000001 1147 BS1 EQU 1 
0030D8 0000 1023+DCB7 DC A (#—%* LAST DCB TABLE, BYTE COUNT 000002 1142 BS2 EQU 2 
0030DA 0000 1024+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000003 1143 BS3 EQU 3 
1025+ 000004 1144 BS4 EQU 4 
0030DC 1026+CSBUF EQU * CYCLE STEAL DATA BUFFER 000005 1145 BS5 EQU 5 
0030DC 0000 1027+CSTL1 D A (*-* CS STATUS WD 0, RESIDUAL ADDRESS 000006 1146 BS6 EQU 6 
0030DE 0000 1028+CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 000007 1147 BS? EQU 7 
0030E0 0000 1029+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 000008 1148 BS8 EQU 8 
0030E2 0000 1030+CSTL4 DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 000009 1149 BSS EQU 9 
0030E4 0000 1031+CSTL5 DC A (*—* CS STATUS WD 4, ERROR STATUS WD 1 OQOOO0A 1150 BS10 EQU 10 
003056 0000 1032+CSTL6 DC A (*-%* CS STATUS WD 5, ERROR STATUS WD 2 00000B 11517 BS11 EQU 11 
0030E8 0000 1033+CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 00000C 1152 BS12 EQU 12 
OO30EA 0000 1034+CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 00000D 1153 BS13 EQU 13 
0030EC 0000 1035+CSTLI DC A (*-* CS STATUS WD 8, CURRENT HD/CYL QO000E 7154 BS14 EQU 14 
0030EE 0000 1036+CST10 DC A (*-* CS STATUS WD 9, FLAG/SECTOR 00000F 1155 BS15 EQU 15 
0030F0 0000 1037+CST11 DC A (*-* CS STATUS WD 16, HEAD/CYLINDER 1157 COPY T/AOODCB 260CT77 
0030F2 0000 1038+CST12 DC A (*-* CS STATUS WD 11, DIAG BYTES 1, 2 1158 ** (T7AOODCB) 
OO30F4 0000 1039+CST13 DC A (*-* CS STATUS WD 12, AND 3 + WRAP BYTE 1159 * 
1040+* 1160 AI OR RR a Fak a a CK Ra ok a a oR ak ka 2 8/7 DE RK 
0030F6 0000 1041+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 1161 * 
0030F8 00000000 1042+$DATA DC 2A (*-* OPTIONAL DATA 1162 * DCB TABLES AND DC'S 
0030FC 0021 1043+$INTL DC X*0021! INTERRUPT LEVEL REQUESTED 1163 * 
OO30FE 0000 10444+TURTN DC A (*-*) TEST UNIT RETURN ADRS TO MDI 1164 Se eS SSS StS SS SS SSS SP LS SSS SSS SES SSS SSS LSS SSS SSS SSeS OSCSSCSSSSL SL SSS LS. SS 
003100 00 1045+$DVID DC X*OO0! DEVICE ID 1165 * 
003102 19D0 1046+SVCAL DC A(DEVADD) ADRS OF DEVICE ADDRESS 1166 ***** DTAGNOSTIC DCB OK OK Kk 
003104 0000 1047+ DC A (*-*) IBIS CYLINDER ADDRESS 1167 * 
1048+* 00310E 2008 1168 DGDCB DC X*20088 DIAGNOSTIC DCB 
1049+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 003110 0000 1169 DC A(e—% FLAG / PHYSICAL SECTOR# 
1050+* FUNCTION. THE PESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 003112 0000 1170 DC A (*-* HEAD / CYLINDER#'S 
1051+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 003114 0000 1171 DC X"0000" NOT USED 
10524+* 003116 3188 1172 DC A (RSBA) RSB ADDRESS 
003106 4020 30BC 7A02 1053+T7A02 MVWI X*7A02',$TUID SET UP TEST UNIT ID 003118 0000 1173 DC A (*~* CHAINING ADDRESS 
00310C 5700 1054+ BXS fe] RETURN TO MDI SUPVR 00311A 0100 1174 DC X'0100° BYTE COUNT 
1056 COPY OMEQU 00311C 0000 1175 DC A (*-*) DATA ADDRESS 
ORNATE SETS SSS SSS SPS SS SCS S SSS SS SSS SSS SSCS SCS SSS SSS CLS SC CSS SSCS SSS LSS. S SS 2s 2 1176 * 
1058 * x 1177 ***** RECALIBRATE DCB *****%K% 
1059 * EQUATED NAMES FOR SUPPORTED SVC'S x 1178 * 
1060 * x 003118 0001 1179 CLDCB DC X¥*0001! RECALIBRATE DCB 
10617 3K OK RR I III IC CI IO OIC I OI RI i II a I ak ie ak ak ak ak ok a akc akc af ok ak 003120 00000000000000000 1180 DC 7A (*¥-*) 
000000 1062 OUT EQU 0 OUT SVC 1181 * 
000001 1063 OUTIN EQU 1 OUTIN SVC 1182 ***** WRITE SECTOR ID ****** xx 
000002 1064 IDLE EQU 2 IDLE SVC 1183 * 
000003 1065 IDLE5S FOU 3 IDLE SVC - INDEPFNDENT OF CPU TYPE 00312E 002D 1184 WSDCB DC X'OO2D! WRITE SECTOR ID CNTL WORD 
0000048 1066 CHNGE EQU 4 CHANGE LEVEL SVC 003130 0000 1185 DC A (*-* FLAG / PHYSICAL SECTOR# 
000005 1067 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 003132 0000 1186 DC A (*-* HEAD / CYLINDER#'S 
000006 1068 EXIT EQU 6 FY¥IT svc 003134 0000 1187 DC X*00008 NOT USED 
000007 1069 TERM EQU 7 TERMINATE SVC 003136 31E8 1188 DC A (BSBA) RSE ADDRESS 
000008 1070 RESET EQU 8 RESET DEVICE SVC 003138 0000 1189 DC A (*-—* CHAIN ADDRESS 
000009 1071 RID EOU 9 READ ID SVC 00313A 0004 1190 DC Xx'ooo4! BYTE COUNT 
OOOOOA 1072 START EQU 10 START CYCLE STEAL SVC 00313C 31DC 1191 DC A (WRSID) ADDR OF SECTOR ID DATA 
00000B 1073 STCSS EQU 11 START CYCLE STEAL STATUS SVC 1192 * 
00000C 1074 PREP EQU 12 PREPARE DEVICE SVC 1193 ***** READ SECTOR ID DCB *****xx 
00000D 1075 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 1194 * 
000008 1076 READ1 EOU 14 READ WITH FUNCTION BIT 3 ON SVC 00313E 201C 1195 RSDCB DC x*201Cc! READ SECTOR ID CNTL WORD 
OOOO0F 1077 RSTAT EQU 15 READ STATUS SVC 003140 0000 1196 DC A (*-* FLAG / PHYSICAL SECTOR# 
000010 1078 WRITO EOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 003142 0000 1197 DC Xx"O0OO0! HEAD / CYLINDER#'S 
000011 1079 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 003144 0000 1198 DC X*0000! NOT USED 
000012 1080 CTRL EQU 18 CONTROL SVC 003146 31E8 1199 DC A (RSBA) RSB ADDRESS 
000013 1081 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 003148 0000 1200 DC A (*-* CHAIN ADDRESS 
000014 1082 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 00314A 0004 1201 DC X*O0048 BYTE COUNT FOR READ SECTOR ID 
000015 1083 HIO EQU 21 HALT ALL 1/0 00314c 30c4 1202 DC A (SCTID) SECTOR ID DATA ADDRESS 
000016 1084 REOSD EQU 22 REQUEST USE OF DCP DISK SVC 1203 * 
000017 1085 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 1204 ****k* SEEK DCB #22 KA 
000018 1086 HALT EQU 24 HALT SVC 1205 * 
000019 1087 ETOH EQU 25 FBCDIC TO HEX SVC (STRING 00314E 0000 1206 SKDCB DC X*O0008 SEEK DCB CONTROL WORD 
00001A 1088 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 003150 0000 1207 DC x*00008 NOT USED 
00001B 1089 ATOH EOU 27 ASCII TO HEX SVC TRING 003152 0000 1208 DC A (*-* HEAD /_CYLINDER#'S 
00001C 1090 HTOA EQU 28 HEX TO ASCII SVC (STRING 003154 0000 1209 DC X*00008 NOT USED 
00001D 1091 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 003156 3158 1210 DC A (RSBA) RSB_ ADDRESS 
OOO001E 1092 ATOR EQU 30 ASCII TO EBCDIC SVC (STRING 003158 0000 1211 DC A (*+% CHAIN ADDRESS 
OO001F 1093 READI EQU 31 READ DATA SETS FOR MDI/UTIL 00315a 0000 1212 DC X0000! NOT USED 
000020 1094 WRITI EQU 32 WRITE DATA SETS FOR UTIL 00315C 0000 1213 DC X*0000! NOT USED 
1096 300 ICICI I CIC OK oa oC Ko a ka fa a kok ak kak ok ok 1214 * 
1097 * * 1215 ***** CYCLE STEAL STATUS DCB ¥******xx 
1098 * EQUATES USED BY TU'S AS CONSTANTS * 1216 * 
1099 x x 00315E 2000 1217 CSDCB DC X*2000! CONTROL WORD 
QUE TELE SCC CSL OSS SSCS C SSS SESS SSCS SSCS S LCCC COSESSCSCSCCCCCS CSS SSCS COSC S SPS Se eS 2 Ss 003160 0000 1218 DC For NOT USED 
OO0O4E 1101 PLUS EQU Cte PLUS CHAR 003162 0000 1219 DC F'Q! NOT USED 
000060 1102 MINUS EOU cr-t MINUS CHAR 003164 0000 1220 DC Fegor NOT USED 
000000 1104 ZERO EQU 0 003166 0000 1221 DC Fto? NOT USED 
000001 1105 ONE EQU 1 003168 0000 4222 DC Ftor NOT USED 
000002 1106 TWO EQU 2 00316A OO1A 1223 DC X"OO1A# 13 WORDS OF STATUS 
000003 1107 THREE EOU 3 00316C 30DC 1224 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 
000004 1108 FOUR EQU m 1225 * 
000005 1109 FIVE EOU 5 1226 ***** WRITE DCB #2 x & x 
000006 1110 SIX EQU 6 1227 * 
000007 1111 SEVEN FOU 7 00316E 0028 1228 WRDCB DC x*0028! WRITE DATA DCB CNTL WORD 
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003170 0000 1229 pc A (*-* FLAG / RECORD# 1344 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
003172 0000 1230 DC A lt—* HEAD / CYLIDNER#'S 1345 x EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
003174 0000 1231 DC A (*-* SCAN / REPEAT COUNT 1346 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
003176 31E8 1232 DC A (RSBA) RSB ADDRESS 1347 * SUPVR CALL. 
003178 0000 1233 DC A (*-* CHAIN ADDRESS 1348 * ; 
00317A 0100 1234 DC x*0100! BYTE COUNT 1349 x THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
00317C 0000 1235 DC A (*-*) WRITE DATA ADDRESS 1350 * ‘ 
1236 * 1351 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
1237 apes VERIFY DCR ARK CK & 1322 : 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
00317E 0019 1239 VRDCB DC Xx'0019! CONTROL WORD 1354 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
003180 0000 1240 DC A (*-* FLAG / RECORD# 1355 * = 
003182 0000 1241 DC A (*—-* HEAD / CYLINDER#'S 1356 * 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 
003184 0000 1242 DC A (*-* SCAN / REPEAT COUNT 1257 <% : 
003186 3188 1243 pc A (RSBA) RSB ADDRESS 1358 * 2 BAL SWKEW, RG WRITE SECTOR ID SKEWED 
003188 0000 1244 DC A (*-* CHAIN ADDRESS 1359 * * 
00318A 0000 1245 DC A (*—* BYTE COUNT 1360 * 3 BAL SWSEC,R6 WRITE SECTOR ID 
00318cC 0000 1246 DC For NOT USED 1361 * : 
1247 * 1362 * 4 BAL SDIAG,R6 DIAGNOSTIC 
1248 ***** READ DCB we ak i ae 2k 1363 * - 
1249 x 1364 * 5 BAL XIOCS,R6 ’ CYCLE STEAL STATUS 
00318E 2018 1250 RDDCB DC x*2018!? READ DCB CONTROL WORD 1365 * a 
003190 0000 1251 DC A (*-* FLAG / RECORD# 1366 * 6 BAL SSEEK, R6 SEEK 
003192 0000 1252 DC A (*-* HEAD / CYLTNDERE'S 1367 * . 
003194 0000 1253 DC A (*- * SCAN / REPEAT COUNT 1368 * 7 BAL SRECL, R6 RECALIBRATE 
003196 31E8 1254 DC A (RSBA) RSB ADDFESS 1369 * _ 
003198 0000 1255 DC A aaa) CHAIN ADDRESS 1370 * 8 BAL S$RDID,R6 READ SECTOR ID 
00319A 0100 1256 DC x*01008 BYTE COUNT 1371 * Z 
00319cC 0000 \ga7 ‘ DC A (*-*) READ DATA ADDRESS 1342 4 9 BAL SRD, R6 READ 
1232 ore WRITE SECTOR ID SKEWED KKK iat : 10 BAL SRDVY,R6 READ VERIFY 
00319E 002F 1261 WKDCB DC X*O02F* CONTROL WORD 1376 * 11. BAL SWRT, R6 WRITE 
0031A0 0000 1262 DC A (*-* FLAG / PHYSICAL SECTOR# 1377 * 
0031A2 0000 1263 DC A (*- * HEAD / CYLINDER#'S 1378 * 12 BAL SRDIM, ROE READ MULTI SECTOR IDS 
0031A4 0000 1264 DC For NOT USED 1379 * 
0031A6 3158 1265 DC A (RSBA) PSB ADDRESS 1380 220k AC tok a oO CI CG ak i aa iai i iaiok ik loko ak toa ac aki 
0031A8 0000 1266 DC A (*-* CHAIN ADDRESS 1381 * 
0031AA 0004 1267 DC x*O004! BYTE COUNT 003218 4020 3430 314E 1382 $SEEK MVA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0031AC 31DC 1268 : DC A (WRSID) ADDR OF SECTOR ID DATA 00321E 5O7F 4383 : J XIO 
1270 **** READ SECTOR ID SKEWED KK 003220 4020 3430 311E 1385 $RECL MVA CLDCB,IODCB SET UP BLOCK FOR SVC CALL 
1271 * 003226 507B 1386 J XIO 
0031AE 201D 1272 RKDCB DC X*201D* CONTROL WORD 1387 * 
0031B0 0000 1273 DC A (*-* FLAG / PHYSICAL SECTOR# 003228 4020 3430 313E 1388 $RDID MVA RSDCB, 1ODCB SET UP BLOCK FOR SVC CALL 
0031B2 0000 1274 DC A t*-x HEAD / CYLINDER#'S 00322E OBBB 1389 MVBI X'BBI,R3 SET BUFFER TO B's 
0031B4 0000 1275 DC F'ot NOT USED 003230 4524 30cC4 1390 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
0031B6 3188 1276 Dc A roe) RSB ADDRESS 003234 4724 0004 1391 MVWI 4,R7 SETUP BUFFER LENGTH 
0031B8 0000 1277 Dc A CHAIN ADDRESS 003238 2BAC 1392 FFN R3 (B5) INIT READ SECTOR ID BUFFER 
0031BA 0004 1278 DC x? 000 BYTE COUNT 00323A 4020 314c 30C4 1393 MVA SCTID, RSDCB+ 14 DATA ADDR 
0031BC 30C4 1279 ‘ pc A (SCTID) SECTOR ID DATA ADDRESS 003240 506E 1338 : J XIO 
1281 **** READ MULTIPLE SECTOR IDS KOK IK 003242 4020 3430 31BE 1396 $RDIM HVA RMDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1282 * 003248 4724 0084 1397 MVWI 132,R7 SET BUFFER LENGTH 
0031BE 201C 1283 RMDCB DC X*201Cc! CONTROL WORD 00324C 4524 31F8 1398 MVA ele SET BUFFER ADDRESS 
0031C0 0000 1284 DC A (*-* FLAG / PHYSICAL SECTOR# 003250 OBBB 1399 MVBI SET CLEAR CHARACTERS 
0031C2 0000 1285 DC A (*-* HEAD / CYLINDER#'S 003252 2BAC 1400 FFN 3 URS} CLEAR THE BUFFER 
0031C4 0000 1286 DC For NOT USED 003254 5064 1401 J B36 
0031C6 3188 1287 DC A (RSEA) RSB ADDRESS 1402 * 
0031C8 0000 1288 DC A (k—* CHAIN ADDRESS 003256 OBFF 1403 $RD MVBI X'FFt,R3 SETRD BUFFER TO ALL F'S 
0031CA 0084 1289 Dc x'ooske BYTE COUNT 003258 6D08 319C 1404 MVW RDDCB+14, RS SET UP READ BUFFER ADRS 
0031CC 31F8 1290 DC A (IDOO) DATA AREA ADDRESS 00325Cc 6F08 319A 1405 MVW RDDCB+ 12, R7 SET UP BUFFER LENGTH 
1291 * 003260 2BAC 1406 FFN AR 5) CLEAR READ BUFFER 
1292 * CONSTANTS AND DEFINED STORAGE LOCATIONS 003262 4020 3430 3188 1407 $RDS MVA EDS B, LODCB SET UP BLOCK FOR SVC CALL 
0031CE 0000 1293 ZEROO DC Xt0000!8 CONSTANT ZERO 003268 505A 1408 J XI 
0031D0 0001 1294 ONE1 DC X'O0001' CONSTANT ONE 1409 * 
0031D2 0000 1295 RAY DC A (+ *) WRITE PARAMETER POINTER 00326A 4020 3430 317E 1410 $RDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0031D4 EB6D 1296 WDATA DC X"EB6D! WRITE DATA 003270 5056 1411 J XIO 
0031D6 6BDB 1297 DC X*6BDB* * 1412 * 
0031D8 0000 1298 LGSEC DC X¥*'0000! LOGICAL SECTOR # 003272 4020 3430 316E 1413 S$WRT HVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0031DA 0000 1299 PHYSC DC x'0000! CONVERTED PHYSICAL SEC # 003278 5052 1414 J XIO 
0031DC 0000 1300 WRSID DC x'0000!8 FLAG,SECTOR (WRT SECTOR ID DATA) 1415 * 
0031DE 0000 1301 DC X'00008 HEAD,CYLINDER 00327A 4020 3430 31AE 1416 $RKEW MVA RKDCR,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0031EO0 FF34 1302 WSIDT DC X'FF34° WRITE SECTOR ID TEST DATA 003280 OBBB 1417 MVBI X'BBt,R3 SET BUFFER TO B'S 
0031E2 5678 1303 DC X¥'*5678! 003282 4524 30C4 1418 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
0031E4 0000 1304 SCTST DC X'0000! TeRD SECTOR ID TEST DATA BUFFER 003286 4724 0004 1419 MVWI 4,R7 SETUP BUFFER LENGTH 
0031E6 0000 1305 pc x*o0008 00328A 2BAC 1420 FFN R3 A{R5) INIT READ SECTOR ID BUFFER 
0031E8 00000000000000000 1306 RSBA_ DC Bh ee) RESIDUAL STATUS BLOCK 00328C 4020 31BC 30C4 1421 MVA SCID, RKDCB+14 DATA ADDR 
0031F4 0000 1307 CTRO2 DC x'd0008 COUNTER 003292 5045 1422 J XIo 
0031F6 0000 1308 CTRO3 DC x'oo00? COUNTER 1423 * 
0031F8 0000 1309 IDO0O0 pc x¥*0000!8 ID ADDRESS TO BE SET BY USER 003294 4020 3430 3195 1424 SWKEW MVA WKDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 
0O0O31FA 1010 1310 PDATA DC X*10108 WRITE DIAG WORD 1 DATA PATTERNS 00329A 4020 31AC 31DC 1425 MVA WRSID, WKDCB+14 DATA ADDR 
0031FC 5555 1311 DC X*55558 * 0032A0 503E 1426 J XIO 
0O31FE AAAA 1312 DC X°AAAA® * 1427 * 
003200 FFFF 1313 DC X'*FFFF* * 0032A2 4020 3430 312E 1428 $WSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1314 * 0032A8 4020 313cC 31DC 1429 MVA WRSID, WSDCB+14 DATA ADDR 
1319 FIG IO ao IORI a i aac a 706 77 7 RR IORI IO RI IO I Io ak tok 0032AE 5037 ee XIO 
316 * * 
1317 * SUBROUTINE 0032B0 4020 3430 310k 1432 $DIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1318 * 0032B6 5033 1433 J XIO 
1319 * PURPOSE 1434 * 
1320 * 0032B8 6E0OD 30c2 1435 $WRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 
1321 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 0032BC OBFF 1436 MVBI 255,R3 CLEAR CYCLE STATUS BUFFE 
1322 * 0032BE 4524 30DC 1437 MVA a R5 * TO ALL ONES * 
1323 * CALLING SEQUENCE 0032C2 OF16 1438 MVBI * 
1324 * 0032C4 2BAC 1439 FFN ie) * 
1325 * BAL CMPRW,R6 (NORMAL) 0032C6 4524 30cCC 1440 MVA bes F,R5 CLEAR DCB BUFFER TO ALL ONES 
1326 * 0032CA OF10 1441 MVBI 6,R 
1327 * RETURN 0032CC 2BAC 1442 FFN R3 (85) 
1328 * 0032CE 4020 30BE 0708 1443 MVWr 6x*6708 , S10IN OVERLAY OLD CONDITION CODES 
1329 * BXS (R6,2) - NORMAL 0032D4 CB25 30C0 1444 MVWZ $ISB,R3 ZERO OUT OLD ISB 
1330 * 0032D8 4CA3 1445 TBTR RO, IN CLEAR INTERRUPT RECELVED CNTL BIT 
1331 * 0032DA 4CA1 1446 TBTR Ra, ER RESET ANY ERROR BEFORE I/O COMMAND 
1332 PEEL ESET SESS SSS SST TT SS TPS SS PES ST SS SS SSS SS SSC SCS SSCS SSCS SL STS SSCL Se ST eS 0032DC 4&C62 1447 TBTS SET EXPECTED INTR CONTRO BIT 
1333 * 0032DE 4724 342C 1448 MVA Baik. SET UP CONTROL BLK FOR SUPR 
003292 4724 0004 1334 CMPRW MVWI 4,R7 COMPARE BYTE COUNT 0032E2 C020 3433 1449 MVB TOHODS+_RO GET IDCB FUNC/MODIFIER 
003206 4324 30C4 1335 MVA SETID, R3 ADDR OF RD SEC ID DATA 0032EF6 402D 3432 OOFO 1450 RBTWI X*OOFO!,IOMOD REMOVE FUNCTION FROM *IOMOD! 
00320A 4524 31DC 1336 MVA WRSID,R5 ADDR OF WR SEC ID DATA 0032EC 3022 1451 SRL 4 RO RIGHT JUSTIFY FUNCTION BITS IN RO 
00320E 2BA6 1337 CFNEN (R3), (R5) COMPARE ID DATA 0032EE F005 1452 CBI 5, RO IDCB FUNCTION = 5? 
003210 68C0 0002 1338 RO, 2) BCH IF WRITE ID DATA OK 0032F0 1003 1453 JE SWRT1 YES - ISSUE 'SVC WRIT1! 
003214 68D2 0000 1339 B 6f * COMPARE ERROR 0032F2 6010 1454 SVC WRITO ISSUE WRITE DPC "uxt Op 
T3041 IORI OO IOI IO Rk I iodok kok icdeokckek ok O0O032F4 6802 3378 1455 B XIO8-4 GO WAIT FOR THE INTERRUPT 
1342 * 0032F8 6011 1456 $WRT1 SVC WRIT1 ISSUE WRITE DPC 5X! op 
1343 * EXECUTE INPUT §& OUTPUT COMMANDS 0032FA 6802 3378 1457 B XIO8-4 GO WAIT FOR THE INTERRUPT 
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1458 * 2138+* 
0032FE 4020 3430 316E 1459 S$DGWR MVA WRDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 2139+* I/O EXECUTE ERROR HANDLING ROUTINE 
003304 6802 3324 1460 B XIODG ISSUE START CS DIAG CMD 2140+%* 

1461 * 2141+* PURPOSE 
003308 4020 3430 318E 1462 $DGRD MVA RDDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 2142+* 
0OO0330E 6F08 319A 1463 MVW RDDCB+12,R7 GET NO. OF BYTES TO CLEAR 2143+%* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
003312 6D08 319C 1464 MVW RDDCBt14,R5 ADDR OF READ BUFFER 2144+ PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
003316 OBFF 1465 MVBI X*FFt,R3 CLEAR TO F#S 2145+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
003318 2BAC 1466 FFN 3, (R5) x 2146+ 
00331A 6802 3324 1467 B XIODG ISSUE START CS DIAG CMD 2147+* CALLING SEQUENCE 

1469 COPY T7AXEQ OOMAR78 2148+ 

1470 aeeiNt OFF pene SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 

+ 

OE ee EEE EEC ETE CEE LEE CET EEE PET PETE ET LCE ETO OT TT TT Tee 2151+* RETURN CONTROL 

2036+* 2152+* 

2037+% SUB-ROUTINE ae ped B (R6) * RETURN TO USERS ERROR HANDLER 

+ 

2039+* EXECUTE INPUT AND OUTPUT COMMANDS ere e ores erry ee etree eS e Te ene n ett eater Ae Tee e Teen eo eee 

2040+ 2156+* 

2041+* PURPOSE 2157+* CC = DEVICE NOT ATTACHED 

2042+* 2158+* FOR = DEVICE BUSY 

2043+% TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2159+* I/0 = DEVICE BUSY AFTER RESET 

2044+ THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 2160+* 3= COMMAND REJECT 

2045+* 2161+* = INTERVENTION REQUIRED 

2046+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 2162+%* = INTERFACE DATA CHECK 

20474+%* THE I/O COMMAND. 2163+* = CONTROLLER BUSY 

2048+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 21644+% 7J= I/O COMMAND EXCEPTED 

2049+% ISSUED BY THIS SUBROUTINE. 2165+* 

2050+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 003390 T706E 2166+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 

2051+* “- START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 003392 336A 2167+ SRL 13,83 POSITION CC CODE TO BITS 13-15 

2052+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 003394 C328 30BE 2168+ MVB R3,S1I10IN * PUT IN LOG OUT AREA 

2053+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 003398 68D2 0000 2169+ B (RG) * RETURN TO USER ERROR HANDLER 

2054+* MYSTERY INTERRUPT set) CONTROL BIT IS SET. 217 14 KK KK OE CK EE II IR iio oiok a take dokokokok 1 A PR 7 6* * 

2055+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 2172+* iT 

2056+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE "SVC START'. 2173+* SUB-ROUTINE IL 

2057+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 21744+%* IL 

2058+* STARTS TO DETERMINE A LOST INTERRUPT. 2175+%* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '‘$INTL® IL 

2059+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 2176+* IL 

2060+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2177+* PURPOSE IL 

2061+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 2178+* IL 

2062+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 2179+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 

2063+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 2180+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 

2064+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 2181+* EXPECTED CODE. IL 

2065+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 2182+* IL 

2066+* ISSUED BY THIS SUBROUTINE. 2183+* CALLING SEQUENCE IL 

2067+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 2184+ TL 

2068+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 2185+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 

2069+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 2186+* IL 

2070+* 2187+* RETURN CONTROL IL 

2071+* CALLING SEQUENCE 2188+* IL 

2072+* 2189+* SVC EXIT RETURN TO USER VIA SUPVR IL 

2073+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2190+* IL 

2074+ 219 14 I OI TO GO OO gai gd lock oikkotokok a tT 

2075+* --> BAL XiI0 OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 2192+* IL 

2076+* --> BAL X1I01 MOD PARM PRELOADED IN 'IOMOD! 2193+* CC O= CONTROLLER END ISR O= ADD STATUS IL 

2077+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 2194+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT LL 

2078+* --> BAL XIOCS-4,R6 AUTO CS STATUS AE OLrOR TAG OTHER XIO 2195+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 

2079+* ‘ AND DOES NOT POST INTERRUPT STATUS) 2196+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 

2080+* 2197+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 

2081+* RETURN CONTROL 2198+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 

2082+* 2199+ 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 

2083+* BXS R6, 2) RETURN TO USER NO ERROR 2200+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 

2084+* OR 6) * RETURN AND RETFY ON ERROR 2201+* TL 

2.085 43 IC CIC IG ICICI CG IGG IG I a ICI I I ak keke ike ak ak ak 00339C T706E 2202+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
00331E CB25 3432 2087+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 00339E 336A 2203+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
003322 500E 2088+ J XI01 CS I/O'S ARE NOT RETRIED 0033A0 4424 30B6 2204+ MVA OPTN1 RY SET UP BASE ADRS IL 

2089+* 0033A4 4C28 2205+ TBT {Ro c§) IS CS IN PROGRESS IL 
003324 4020 3432 O000D 2090+XIODG MVWI xX'OOOD!,IOMOD SET MODIFIER FOR DIAGNOSTIC OPS Q0033A6 1006 2206+ JOFF NTES * NO IL 
00332A 500A 2091+ J XI01 GO TO CS OPS 0033A8 4C6A 2207+ TBS fat CE TURN ON CYCLE STEAL INTER ERROR IL 

2092+* 0033AA 6FOD 30CA 2208+ MVW 7, DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 
00332C 4CAA 2093+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. Q0O33AE C328 30CB 2209+ MVB R3,DEV4+1 * AND THE COND CODE TL 
00332E 4C68 2094+ TBTS R4,CS SET ‘CYCLE STEAL STATUS IN PROGRESS Q0033B2 500A 2210+ J INTR1 TL 
003330 4020 3430 3155 2095+XIOCS MVA SDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL Q0O033B4 4¢C24 2211+INTES TBT 42h XE) TEST EXPECTED ATTEN / ERROR IND IL 
003336 4020 3432 OOOF 2096+ MVWI X¥'000Ft, TOMOD SET CYCLE STEAL MODIFIER 003326 1002 2212+ JOFF NTET BCH IF NOT EXPECTED IL 
00333C 4C28 2097+ Te? {23 CS) IS CS IN PROGRESS, ERROR CONDITION 0033B8 F304 2213+ CBI 4,R3 IS THIS AN ‘ATTENTION! INTR TL 
00333E 1213 2098+ JON To2 * YES, BYPASS SAVING I/O ADRS OO33BA 1006 2214+ JE thtr1 * YES, BCH TO END INTR SEQUENCE IL 
003340 6E0D 30C2 2099+XIO1 MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 0033BC 4C61 2215+INTET TBTS 12 ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
003344 4324 30CC 2100+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 0033BE 5004 2216+ J nTth1 IL 
003348 6D08 3430 2101+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 2217+* THE ERROR IENTERRUPT USES THE SAME IL 
00334C OFTA 2102+ MVBI 26,R * THE NUMBER OF MOVES 2218+* ENDING SEQUENCE AS THE NORMAL INTR IL 
QOO0334E 2D64 2103+ MVFN SBD) Se) MOVE 1 STATUS WORD AND ADJUST 2220 4 RII IO ORO oo Goo do a kao ectotokok TQ APRT6IL 
003350 OBFF 2104+ MVBI 55 3 CLEAR CYCLE STATUS BUFFER 2221+* IL 
003352 4524 30DC 2105+ MVA CSBOUF, R5 * TO ALL ONES * 2222+* SOUBROUTINE IL 
003356 OFTA 2106+ MVBI 26,R * 2223+%* IL 
003358 2BAC 2107+ FFN R3 4Ro) * 2224+ OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL* IL 
00335A 4020 30BE 0708 2108+ MVWI x16 08', SIOIN OVERLAY OLD CONDITION CODES 2225+%* IL 
003360 CB25 30C0 ee MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE ee et PURPOSE IL 

+ + IL 

003364 4CA1 2111+ TBTR R4,ER RESET ANY ERROR BEFORE I/O COMMAND 2228+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
003366 4CA3 2112+XI0O2 TBTR R4, IN CLEAR INTERRUPT RECEIVED CNTL BIT 2229+* IL 
003368 4724 342C 2113+ MVA OBLK Yj SET UP CONTROL BLOCK FOR SUPVR 2230+* CALLING SEQUENCE nao 
00336C 4CA6 2114+ TBTR R4, $LE) RESET LEVEL ERROR INDICATOR 2231+* TL 
00336E 4C62 2115+ TBTS R4, XT) SET EXPECTED INTR CONTROL BIT 2232+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
003370 600A 2116+ svc TART CALL SUPVR FOR I/O COMMAND 2233+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL 

2117+%* 2234+ AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 
003372 4CA7 2118+ TBTR (R4,NI) IS AN INTR EXPECTED 2235+* COMMON SECTION IS HANDLED HERE. TL 
003374 6ACO 0002 2119+ BN R6, 2) * NO, RETURN TC USER 2236+* IL 

2120+* 2237+* RETURN CONTROL IL 

2121+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 2238+* IL 

2122+* 2239+* SVC EXIT RETURN TO USER VIA SUPVR IL 
0903378 4524 0000 2123+ MVWI 0O,R5 SET UP WORK REG FOR ‘LOST INTR'* 2240+* IL 
00337C 4CA3 2124+XI08 MTBTR (fa IN) HAS INTERRUPT BEEN RECEIVED 22.11 + RR III IORI IOIIOR IOI OIG tO RK dob ioi tk totototakoaic dT 
09337E 1239 2125+ JON Tock * YES, CHECK IF ALL WAS SATISFACTORY 0033C0 T706E 2242+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
003380 6002 2126+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUW 0033C2 336A 2243+ SRL 13,R3 POSITION INDICATORS IN R3 TI 

2127+* SUPVR WILL RETURN HERE 0033C4 4424 30B6 2244+ MVA OPTN1 R4 SET UP BASE ADRS IL 
093382 6002 2128+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 0033C8 4C63 2245+INTR1 TBTS RG, if SET INTERRUPT RECEIVED IL 

2129+* SUPVR WILL RETURN HERE 0O033CA 4C28 2246+ TBT R4&,CS IS 'CS IN PROGRESS! ON TI, 
903384 7DA1 0001 2130+ AWIL 1,R5 ADVANCE TIME OUT COUNT 0033CC 1204 2247+ JON NTR2 * YES, BCH AROUND UPDATE Td 
003388 18F9 2131+ JNZ xfo8 BCH IF TIME OUT NOT REACHED 0033CE C328 30BF 2248+ MVB R3,S10IN+1 SAVE {NTERRUPTING CC CODE IL 
00338A 4C61 2132+ TBTS R4, ER) SET ON ERROR CONTROL BIT 0033D2 6F0D 30C0 2249+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS IL 
00338C 68D2 0000 2133+ B R6) * E "NO INTERRUPT! 0033D6 2250+INTR2 EQU * IL 

2135 4 OIC IO ICICI IO OOO IOI IO IK IORI tok dk 0K) 3 BEB 7 64% 2251+* CPCL RS CURRENT LEVEL COPIED BY pcp IL 

2136+ * 0033D6 3521 2252+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 

2137+* SUBROUTINE 0033D8 0501 2253+ ABI 1,R5 * IN 'I' BIT IL 


I7A16 --- COMMON ADAPTER SUB MAP P/N=6826990 EC=375222 PAGE 08 LAG 2 = COMMON ADAPTER SUB MAP P/N=6826990 EC=375222 PAGE O8A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
O0033DA CD24 30FC 2254+ CW SINTL,RS5 IS THIS THE CORRECT INTR LEVEL IL 2371+* --> B S$CONX RETURN TO MDI SUPERVISOR TO TEST STS 
OO33DE 1002 2255+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 2372+* 
0033E0 4C66 2256+ TBIS R4,$LE) SET THTR LEVEL ERROR CONTROL BIT IL 2373+* RETURN CONTROL 
QO033E2 4C61 2257+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT II 2374+* 
0033E4 4YCA2 2258+INTR3 TBTR R4,XI WAS INTERRUPT EXPECTED TI 2375+* B TURTN* PETURN TO MDI 
0033E6 1204 2259+ JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 2376+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
0033E8 4C60 2260+ TBTS hae MI) * NO, SET MYSTERY INTR CONTROL BIT IL 2377+* 

OO33EFA F304 2261+ CBI R3 ATTENTION INTERRUPT? TT 2378 + RRR ICR IOI ROI IORI IO IOI KOI RIO IOI III IORI OR IIR IR HOR KHOI KKK KOK OK ik 
0033EC 1001 2262+ JE TNTRX YES IL 003474 4020 1818 8000 2379+$ERRS MVWI X'8000! ,TUSTATUS SET ON "NO GOOD! STATUS BIT 
OO33EE 4C6C 2263+ TBTS at NG) FRROR,UNEXPECTED INTERRUPT IL OO347A 4724 3644 2380+ MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 
0033F0 6006 22644 INTRX SVC XIt EXIT fHIS LEVEL VIA SUPVR TO PGM IL OO34T7E 601A 2381+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
2266+ KH HK HE KI RO OK I i ck icici dak tok ak tok ck kok KK JRFERT6** 003480 4020 188E 4&O4O0 2382+ MVWL x'goago? 7 TUWORK+1 16 
2267+* 003486 4020 1890 4040 2383+ MVWI X*40O40*, TUWORK+118 
2268+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 00348C 4020 1892 4040 2384+ MVWI X*4O40O*, TUWORK+120 
2269+% HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 003492 ODO4 2385+$PRNT MVBI u,R5 
2270+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 003494 4324 181A 2386+ MVA TOWORK R3 SET UP BUFFER STORAGE 
2271+* 003498 6BO0OD 363C 2387+ MVW R3,BUFPT 
2272+% 00349C 4124 3518 2388+ MVA  LINE1,R1 
0033F2 GCAY 2273+XIOCK TBTR R4, XE) WAS AN ERROR EXPECTED OO34A0 OFOY 2389+ MVBI 4,R7 
O033F4 6ACO 0002 2274+ BN aed | * YES, EXIT THIS ROUTINE OO34A2 OEOB 2390+ MVBI 8,R6 
0033F8 4CA8 2275+ TBTR R4,CS) WAS AGTO CS IN PROGRESS 0O034A4 2824 2391+MVBUF MVFN (83). (R1) 
OO33FA 1006 2276+ JOFF TOCV * NO, CONTINUE CHECKING OO34A6 OFOY 2392+ ‘ MVBI gk 
OO033FC 4C2A 2277+ TBT Ab CE) Is c§ IN AN ERR CONDITION OO34A8 OAKO 2393+ MVBI X'4O!t,R2 
0033FE 1002 2278+ JOFF xX10to * "NO, BCH OO34AA C258 2390+ MVB  R2 (Ri + 
003400 68D2 0000 2279+ B R6) * CS ERROR OO34AC BEFB 2395+ JCT MVS F,R6 
003404 4Cc69 2280+XIOCO TRETS R4,CSA) TURN ON CS STATS AVAIL FLAG OO34AE OEOSB 2396+ MVBI 8,R6 
003406 5601 2281+ BXS R6,2 GO TO USER 0034B0 7921 002C 2397+ AWL 4b R1 
003408 4C21 2282+XIOCV TBT R4, ER) WAS ERROR INTR CONTROL BIT ON OO34B4 BDF7 2398+ JCT MVBUF R5 
0O0340A 100D 2283+ JOFF Tocx * NO, EXIT THIS ROUTINE 0034B6 4020 1802 FIFO 2399+ MVWI PrDMS6é10 PID+2 
2284+%* O0034BC 4020 19B8 3642 2400+ MVA FAKETU ahcADD1 
00340C C520 30BF 2285+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 0034C2 4020 19BA 363E 2401+ MVA DC2PT SDCADD2 
003410 F502 2286+ CBI 2,R5 IS THIS CC=2 0034C8 402C 19C4 0080 2402+ OWL BITO080 SUPSTAT 
003412 1003 2287+ JE xfoco YES OO34CE 4324 30BC 2403+ MVA S$TUID R3 SET UP BUFFER STORAGE 
003414 F506 2288+ CBI 6,R5 IS THIS CC=6 O034D2 6F13 18BA 2404+ BAL TUMSGHTR*, R7 GO TO MESSAGE WRITER 
003416 68D1 0000 2289+ BNE (Be) * * NO, BCH TO ERROR HANDLER 2405+ 
00341A C520 30C0 2290+XIOCQ MVB ISB,R5 GET fast ISB DATA BYTE AND IF CS 0034D6 2406+$CONX EQU * 
OO341E 6A00 332C 2291+ BN XIOCS-4 * AVAILABLE, GO AND GET IT 0034D6 C720 19D0 2407+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
003422 68D2 0000 2292+ B Rte Bs ERROR OO34DA 6013 2408+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
003426 CB25 30BA 2293+XIOCX MVWZ PTN3,R3 CLEAR OUT OPTION 3 CNTL BITS O034DC 6812 30FE 2409+ B TURTN* RETURN TO MDI SUPERVISOR 
OO342A 5601 22944 BXSs (R6, 2$ RETURN TO USER VIA REG 6 24104+* 
2295+* O034EO0 0009 24114+BEGIN DC A (0009 NUMBER OF LINES TO PRINT 
2296+* r/o PARAMETER LIST OO34E2 0008 2412+ DC A (0008 LINE LENGTH = 8 CHAR 
2297+* OO34E4 5C5C40C1C2D6D9E3 2413+ DC C'*x*x ABORT! 
00342C 19D0 2298+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS OO34EC 0028 2414+ DC A (0040) LINE LENGTH = 4O CHAR 
OO0342E 3390 2299+ DC A (XITOER) ERROR ROUTINE ADRS OO34EE E3E4C9OCKH4OCIDECIOD 2415+ DC C'*TUID IOIN ISB INST SECT ID DATA CSCC ! 
003430 0000 2300+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 003516 0028 2416+ DC A (0040) LINE LENGTH = 4O CHAR 
003432 0000 2301+IOMOD DC A (*-* MODIFIER 003518 4O4OKO4O4040OK 0404 24174LINEIT DC Cc? t 
003434 0000 2302+ DC A (*- * ADRS OF LAST SVC CALL 003540 0028 2418+ DC A (0040) LINE LENGTH = 4O CHAR 
003436 0000 2303+IORSP DC A (*-* SECOND WORD OF LAST IDCB 003542 C3D5E3D340C4C3C2F 2419+ DC C'CNTL DCB1 DCB2 DCB3 DCB& CHAD BYCT ADRS ! 
2304+ 003564 0028 2420+ DC A (0040) LINE LENGTH = 4O CHAR 
2305+* INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 00356C LOUOHOKOKOKOLO4YOH 2H214+LINE2 DC cr t 
2306+* 003594 0028 2422+ DC A (0040) LINE LENGTH = 4O CHAR 
003438 19D0 2307+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 003596 C3EZ60FO40C3E260F 2423+ DC C'*cS-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
00343A 33C0 2308+ DC A (INTOK INTERRUPT OK RETURN ADRS OO35BE 0028 242uU+ DC A (0040) LINE LENGTH = 4O CHAR 
00343c 339C 2309+ DC A (INTER INTERRUPT ERROR ADRS 0035CO 4O4OK4O4Os4O4O4O4OK 24254+LINE3 DC ct ' 
00343E 0003 2310+INTCC DC X*0003' INTERRUPT CODE EXPECTED 0035E8 0028 2426+ DC A (0040) LINE LENGTH = 4O CHAR 
; 2312 + IO OI IGOR CIO GOR lok kok ak goto i tak tok 1M AY 7 6* OO35EFA C3E260F840C3E260F 2427+¢ pc C'cS-8 CS-9 CS-A CS-B CS-C t 
2313+* 003612 0028 2428+ DC A (0040) LINE LENGTH = 4O CHAR 
gi SUBROUTINE 003614 4040404040404 0404 Ae DC c' ‘ 
+ + 
2316+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 00363c 0000 24U31+BUFPT DC A BECE 
2317+* 00363E 34E0 2432+DC2PT DC A (BEGIN) 
2318+* PURPOSE 003640 0101 2433+FIXTU DC X*01018& 
2319+* 003642 0101 24344+FAKETU DC xX*'0101! 
2320+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND OOFTFO 2435+PIDMSG10 EQU X*FITFO? 
2321+* ' PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000080 2436+BITO080 EQU X*OO80!8 
2322+* TO INTERRUPT. 2437+* 
2323+* 2438+ DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
2324+* CALLING SEQUENCE 2439+* 
2325+* 003644 OO3A 244U0+HEBLK pc A(58 NUMBER OF BYTES TO CONVERT 
2326+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 003646 30BC 2441+ DC A($T ID) FROM ADRS 
2327+* 003648 181A 2442+ DC A (TUWORK) AND THE TO ADRS 
2328+* --> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 2443 COPY T7A28 19MAY78 
2329+* --> BAL SCONP,R6 PREPARE DEVICE ONLY, ALREADY CONNECT 2U44 T7AZ2Z8 TUIT xX7A28 
2330+* 240 5 +k RE OR IO IO OCI OK tok iaaok 40k 40K 06 F EBT 6* * 
2331+* RETURN CONTROL 2446+% : 
2332+* 24U47+* TEST UNIT 
2333+* BXS R6, 2) RETURN TO USER VIA REG 6 IF OKAY 2448+* 
pacers OR B R6) * IF THE DEVICE COULD NOT BE CONNECTED Seg WRITE DIAGNOSTIC REGISTER 1 LOOP 
. 
233 64 CR IO GIO II I III III I I IGE IC a fag ai ak a af af aie af ofc ake ake ae akc 2451+* PURPOSE 
003440 OQFO6 2337+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 2452+* 
003442 0B00 2338+ MVBI 0O,R3 * AND THE DATA TO USE 2453+ WRITE TO CAP DIAGNOSTIC WORD 1 USING DATA PATTERN PASSED 
OO3S444 4524 30C4 2339+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 2454+ TO TEST UNIT BY MAP. NO RESULTS WORDS ARE RETURNED. 
003448 2BAC 2340+ FFN R3 | * 2455+%* 
OO344A CB25 30BA 2341+ MVWZ Opt 3,R3 CLEAR OLD CONTROLS FOR NEW ROUTIWE 2456+* CALLING SEQUENCE 
OO344E 4724 3438 2342+ MVA INTBL, R7 SET R7 TO CONTROL BLOCK AND 24574+* 
003452 6014 2343+ SVC CICB * CONNECT IT TO THIS DEVICE 2458+* MDI=$TUXX, 'T7A28,REPT=L7A28, PLNG=4, PARM=XXXX! 
003454 6AD0O 0000 2344+ BN (R6) * ERROR RETURN TO USER 2459+%* 
2345+%* 2460+* RETURN CONTROL 
003458 8828 30FC 3430 2346+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 2461+* 
OO345E 4724 342C 2347+ MVA TOBL SET R7 TO CONTROL BLOCK TO PREPARE 2462+* B TURTN* RETURN TO MDI SUPERVISOR 
003462 4020 30BE 0708 2348+ MVWI X¥'0708', $IOIN INITIALIZE CONDITION CODE STORAGE 2463+* 
003468 CB25 30C0 2349+ MVWZ2 S$ISB,R3 * AND CLEAR OLD ISB VALUE 24 6 U + 2k RI ROI ICICI OGIO II GK OIG ORI Rk kK iia kok akc ak akc afc ake 
00346C 6E0D 30C2 2350+ MVW R6 LSTIO SET UP ADDRESS THAT STARTED LAST I/0 OO364A 6FOD 30FE 24654+T7A28 MVW R7,TURTN SAVE RETURN ADDRESS 
003470 600C 2351+ SVC PREP * AND CALI ON SUPVR 00364E 4020 30BC 7A28 2466+ MVWI X*7A28t $TUID SAVE TU ID FOR DISPLAY 
003472 5601 2352+ BXS (R6, 2) RETURN TO USEP 003654 HU24 30B6 2467+ MVA OPTN1, R4 SET UP POINTER ADRS IN R4 
0 351 REA I OGIO IIIS Jol iG iGo fo K 06 APR 7 6 * 003658 6E03 3440 2468+ BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
2355+* 00365C 3672 2469+ DC A (X7A28) ERROR ADRS FOR INVALID PREP 
2356+* SUBROUTINE 2470+* 
2357+* 00365E 4c64 2471 L7A28 TBTS ARS XE SET EXP ERROR CNTL BIT ON 
2358+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 003660 8838 189A 3430 2472 MVW UPARM * ,TODCB LOAD DATA PATTERN IN 2ND WD OF IDCB 
2359+* 003666 4020 3432 0048 2473 MVWI x'0048* ,fOoMOD SETUP WRITE DIAG WD 1 IDCB MOD 
2360+* PURPOSE 00366C 6E03 32B8 2474 BAL SWRTO R6 WRITE DIAG WORD 1 
2361+* 003670 3672 2475 DC A(X7228) RETURN TO MDI IF ERROR 
2362+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 003672 6812 30FE 2476 X7A28 B TURTN* RETURN TO MDI 
2363+* SET THE "NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 2478 COPY tT7A29 19MAY78 
2364+ BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 2479 TIA29 TUIT X7A29 
2365+* 24 80 + KK KR Ak a CC OR RC IC OR ok to kK 06 FEB] 6% * 
2366+* CALLING SEQUENCE 2481+* 
2367+* 2482+* TEST UNIT 
2368+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 2483+%* 
2369+* 24HU84+4+* WRITE/READ DIAGNOSTIC REGISTER 1 LOOP 
2370+* --> B SERPS SET 'NG* BIT AND CONVERT DATA TO LOG 2485+ 
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I7A16 --- COMMON ADAPTFR SUB MAP P/N=6826990 EC=375222 PAGE 09 I7A16 --~- COMMON ADAPTER SUB MAP P/N=6826990 EC=375222 PAGE O9A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
2486+* PURPOSE DECLARED NAME ATTRIBUTES AND REFERENCES 
Sigs NETEG 3,90 DEAGOSETG 099. 1 UOTHS BTL GPBIEIE' DASE ee ee 
2490+ NO RESULT WORDS ARE RETURNED. 1462 $DGRD > ADDRESS. HEX LOCATION(00003308) IN CSECT(I7A16  ) LENGTH (6) 
24924% CALLING SEQUENCE 1043 SINTL ADDRESS; HEX LOCATION (OO0030FC) IN CSECT(I7A16 ) LENGTH(2) 
2494+ MDI=S$TUXX,. *T7A29,REPT=L7A29,PLNG=4 , PARM=XXXX! 1008 $IOIN ADDRESS. HEX LOCATION (OOOO30BE) IN CSECT(1I7A16 ) LENGTH (2) 
suger RETURN pea 1009 $ISB ADDRESS. HEX LOCA*TON (006030C0) EN CSECT(I7A16 ) LENGTH (2) 
54074 1444 2109 2249 2290 2349 
2498+ % B TURTN* RETURN TO MDI SUPERVISOR 993 SLE Sa eh oaee HEX VALUE (00000026) 
2500 + 28k RR ROK ORO I RR i CK KK Bok kok 40 ok kkk i a ok 1007 $TUID ADDRESS. HEX LOCATION (OOOO30BC) IN CSECT(I7A16 ) LENGTH (2) 
003672 4020 30BC 7029 © 35028 MVWT «-KETR99" STUD SAVE TU TD FOR DISPLAY 1435 SWRTO ADDRESS. HEX LOCATION (000032B) IN CSECT(I7A16 ) LENGTA(4) 
003684 6803 3440 230s BYR QeaN ds Re CLEAR DEV DEP STG AND CONNECT 1/0 BL 1456 SHRT1_ «ADDRESS. HEX LOCATION (000032F8) IN CSECT(Z7A16 ) LENGTH (2) 
003688 36BC 2505+ | DC A(X7A29) ERROR ADRS FOR INVALID PREP fe tie TeeGnuT En: HEX VALUE (00000201) 
003690 4030 3435 0048 3808 9” MvNr xtoods',foMOD. SETUP WRITE DIAG WD 1 DCB MOD 102 @DCADD1._-~—« ADDRESS. HEX LOCATION (00001988) IN CSECT(I7A16 ) LENGTH(1) 
ae caer 3393 BAL” dunt Orbe eo 103 @DCADD2-- ADDRESS. HEX LOCATION (000019BA) IN CSECT(T7A16 } LENGTH (1) 
ee as He HERD HENGE Ege ws 29 arnt ER ongay amy crnnggzoo0g3e7 ae 31 sce ge 
s3seks 4353 318k 3038 3818 AVE Fo eShgasguc® SAD TER TEAS Ho" Re a US '1 a ee 
0036AE 4020 319C 36C0 2516 MVA DATBF,RDDCB+ 14 SETUP ADDR OF READ BUFFER 45 OTUXX ABSOLUTE, HEX VALUE (00000500) 
0036B4 4cé64 2517 TBTS (24 xk) SET EXPT ERROR CNTL BIT ON oe) hoe. eee. Shot. eee. een. (bees cane “coe 
SO3EBR Tavs ae 5245 toe A (XT ADS) BETUPN TO MDL IF ERROR 2411 BEGIN ADDRESS. HEX LOCATION(000034E0) IN CSECT(I7A16  ) LENGTH (2) 
mene Sele ceUee 2238 pee e aun Sateen OED 2436 BITO080 “ABSOLUTE. HEX VALUE (00000080) 
906000 pene 5235 oe END ies 2431 BUFPT “ADDRESS. HEX LOCATION (0000363C) IN CSECT(I7A16  ) LENGTH(2) 
997 CE * ABSOLUTE. HEX VALUE (0000002A) 
1082 CICB oT RSOLOTE. Hex VALUE (00000014) 
1179 CLDCB “ADDRESS. HEX LOCATION(0000311E) IN CSECT(I7A16 ) LENGTH(2) 
95 cs BRLOTUBEy MB gB4* U8 (90099020 
996 CSA ABSOLUTE. HEX VALUE (00000029) 
1026 CSBUF jADPRESS. HEX LOCATION (000030DC) IN CSECT(I7A16  ) LENGTH(1) 
1217 CSDCB > ABDRESS. HEX LOCATION(0000315E) IN CSECT(I7A16  ) LENGTH (2) 
2522 DATBF ADDRESS. HEX LOCATION(000036C0O) IN CSECT(I7A16 ) LENGTH(2) 
1016 DCBUF “ADDRESS, HEX LOCATION (000030CC) IN CSECT(I7A16 ) LENGTH(1) 
2432 DC2PT > ADDRESS. HEX LOCATION(0000363E) IN CSECT(I7A16 ) LENGTH(2) 
105 DEVADD ADDRESS. HEX LOCATION(000019D0) IN CSECT(I7A16 ) LENGTH€1) 
1011 DEV1 "ADDRESS. HEX LOCATTON (000030C4) IN CSECT(I7A16 ) LENGTH(2) 
1014 DEVY JADBRESS. HEX LOCATION (000030CA) IN CSECT(I7A16 ) LENGTH(2) 
1168 DGDCB jRBBRESS. HEX LOCATION (0000310E) IN CSECT(I7A16  ) LENGTH(2) 
67 DUMMY ABSOLUTE. HEX VALUE (00000000) 
726 ENTPT ADDRESS. HEX LOCATION (00002790) IN CSECT(I7A16 ) LENGTH(1) 
08 BR RESOUET EY 52™2-95 {0008905 269 a5 
1068 EXIT ABSOLUTE. HEX VALUE (00000006) 
2434 FAKETU ADDRESS. HEX LOCATION (00003642) IN CSECT(I7A16  ) LENGTH(2) 
754 FO0057 ADDRESS. HEX LOCATION (000027A2) IN CSECT(I7A16 ) LENGTH(1) 
784 F00059 ADDRESS. HEX LOCATION (00002916) IN CSECT(I7A16  ) LENGTH(1) 
774 F00061 ADDRESS. HEX LOCATION(0000289A) IN CSECT(I7A16 ) LENGTH(1) 
764 F00063 ADDRESS. HEX LOCATION (0000281E) IN CSECT(I7A16 ) LENGTH(1) 
794 F00069 ADDRESS. HEX LOCATION (00002992) IN CSECT(I7A16 ) LENGTH(1) 
804 FO00074 ADDRESS. HEX LOCATION(OQOOO2A0E) IN CSECT(I7A16 ) LENGTH(1) 
814 F00079 ADDRESS. HEX LOCATION (O0002A8A) IN CSECT(I7A16  ) LENGTH(1) 
824 F00088 ADDRESS. HEX LOCATION(00002B06) IN CSECT(I7A16  ) LENGTH(1) 
834 F00090 ADDRESS. HEX LOCATION(00002B82) IN CSECT(I7A16 ) LENGTH(1) 
844 F00099 ADDRESS. HEX LOCATION (O0002BFE) IN CSECT(I7A16  ) LENGTH(1) 
854 F00105 ADDRESS. HEX LOCATION(00002C7A) IN CSECT(I7A1€  ) LENGTH(1) 
864 F00107 ADDRESS. HEX LOCATION(00002CF6) IN CSECT(I7A16  ) LENGTH(1) 
874 F00116 ADDRESS. HEX LOCATION (00002D72) IN CSECT(I7A16  ) LENGTH(1) 
884 F00122 ADDRESS. HEX LOCATION(OQO02DEE) IN CSECT(I7A16 ) LENGTH(1) 
904 F00131 ADDRESS. HEX LOCATION (00002EE6) IN CSECT(I7A16  ) LENGTH(1) 
908 F00137 ADDRESS. HEX LOCATION(OOOO2EFA) IN CSECT(I7A16 ) LENGTH(1) 
916 FO0143 ADDRESS. HEX LOCATION (00002F50) IN CSECT(I7A16 ) LENGTH(1) 
894 FO00145 ADDRESS. HEX LOCATION (00002F6A) IN CSECT(I7A16  ) LENGTH(1) 
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DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
928 F00147 ADDRESS. HEX LOCATION (O0002FBA) IN CSECT(I7A16  ) LENGTH(1) 651 N00029 ADDRESS, HEX LOCATION (00002706) IN CSECT(I7A16 ) LENGTH(2) 
924 F00149 ADDRESS. HEX LOCATION (00002FA6) IN CSECT(I7A16 ) LENGTH(1) 654 N00030 ADDRESS, HEX LOCATION (0000270A) IN CSECT(I7A16  ) LENGTH(2) 
938 F00151 ADDRESS. HEX LOCATION (00003036) IN CSECT(I7A16 ) LENGTH (1) 666 N00031 ADDRESS. HEX LOCATION (00002718) IN CSECT(I7A16 ) LENGTH (2) 
2440 HEBLK ADDRESS. HEX LOCATION(00003644) IN CSECT(I7A16 ) LENGTH (2) 678 N00032 ADDRESS. HEX LOCATION (00002736) IN CSECT(I7A16  ) LENGTH(2) 
1088 HTOE ABSOLUTE. HEX VALUE (000000 1A) 684 N00033 ADDRESS. HEX LOCATION (00002742) IN CSECT(I7A16 ) LENGTH (2) 
1064 IDLE ABSOLUTE. HEX VALUE (00000002) 696 N00034 ADDRESS. HEX LOCATION (0000275A) IN CSECT(I7A16 ) LENGTH(2) 
1309 ID00 ADBRESS. HEX LOCATION (000031F8) IN CSECT(I7A16  ) LENGTH(2) 699 N00035 ADDRESS. HEX LOCATION (0000275E) IN CSECT(I7A16  ) LENGTH(2) 
990 IN ABSOLUTE. HEX VALUE (00000023) 711 N00036 ADDRESS. HEX LOCATION (00002776) IN CSECT(I7A16  ) LENGTH(2) 
2307 INTBL ADDRESS. HEX LOCATION (00003438) IN CSECT(I7A16  ) LFNGTH(2) 714 N00037 ADDRESS. HEX LOCATION (0000277A) IN CSECT(I7A16  ) LENGTH(2) 
2202 INTER ADDRESS. HEX LOCATION (0000339C) IN CSECT(I7A16 ) LENGTH (2) 720 N00038 ADDRESS, HEX LOCATION (00002786) IN CSECT(I7A16 ) LENGTH (2) 
2211 INTES ADDRESS. HEX LOCATION(000033B4) IN CSECT(I7A16 ) LENGTH(2) 723 N00039 ADDRESS. HEX LOCATION (0000278A) IN CSECT(I7A16  ) LENGTH(2) 
2215 INTET ADDRESS. HEX LOCATION(000033BC) IN CSECT(I7A16 ) LENGTH(2) 58 OF ABSOLUTE. HEX ag 900089”) 
2212 492 507 522 567 579 594 612 
2242 INTOK ADDRESS. HEX LOCATION(000033C0) IN CSECT(I7A16  ) LENGTH (2) 624 639 657 687 702 
2308 57 ON ABSOLUTE. HEX VALUE (00000200) 
2264 INTRX ADDRESS. HEX LOCATION (000033F0) IN CSECT(I7A16  ) LENGTH(2) 4OoG 456 468 
2259 2262 952 OPTN1 ADDRESS. HEX LOCATION (000030B6) IN CSECT(I7A16  ) LENGTH(2) 
2245 INTR1 DDRESS. HEX LOCATION (000033C8) IN CSECT(I7A16  ) LENGTH(2) 2204 2244 2467 2503 
2210 2214 2216 975 OPTN3 ADDRESS. HEX LOCATION (000030BA) IN CSECT(I7A16  ) LENGTH(2) 
2250 INTR2 ADDRESS. HEX LOCATION(000033D6) IN CSECT(I7A16 ) LENGTH(1) 2293 2341 
2247 101 PARMARA ADDRESS. HEX LOCATION(0000196E) IN CSECT(I7A16 ) LENGTH (1) 
2258 INTR3 ADDRESS. HEX LOCATION(000033E4) IN CSECT(I7A16  ) LENGTH(2) 451 463 475 499 514 29 544° 556 574 
2255 586 601 619 631 #646 664 #676 694 °&709 
2298 IOBLK ADDRESS. HEX LOCATION(0000342C) IN CSECT(I7A1€@  ) LENGTH(2) 69 PID ADDRESS. HEX LOCATION (00001800) IN CSECT (1I7A16 ) LENGTH (1) 
1448 2113 2347 71 72 73 74 75 716 77 78 9 
2300 IODCB ADDRESS. HEX LOCATION (00003430) IN CSECT(I7A16 ), LENGTH (2) 80 81 82 83 84 85 86 87 88 
1382 1385 1388 1396 1407 1410 1413 1416 1424 89 90 91 92 93 94 95 96 97 
1428 1432 1459 1462 2095 2101 2346 2472 2507 98 99 100 101 102 103 104 105 #106 
2301 IOMOD ADDRESS. HEX LOCATION (00003432) IN CSECT(I7A16 .) LENGTH(2) 107. 108 109 110 #111, #112 «2399 , 
1449 1450 2087 2090 2096 2473 2508 2435 PIDMSG10 ABSOLUTE. HEX VALUE (0000F1FO) 
37 I7A16 CSECT. START(00002500) LENGTH(4546) ESDID(1) 2399 
37 1074 PREP ABSOLUTE. HEX VALUE (0000000C) 
2417 LINE1 ADDRESS. HEX LOCATION (00003518) IN CSFCT(I7A16  ) LENGTH(4O) 2351 
2388 1250 RDDCB ADDRESS. HEX LOCATION (00003 18) IN CSECT(I7A16 __) LENGTH(2) 
1010 LSTIO ADDRESS. HEX LOCATION (000030C2) IN CSECT(I7A16  ) LENGTH(2) 1404 1405 1407 1462 14 64 2518 (©2515 2516 
1435 2099 2350 1081 RICB ABSOLUTE. HEX VALUE (00000013) 
987 MI ABSOLUTE. HEX VALUE (00000020) 2408 
2260 1272 RK DCB ADDRESS. HEX LOCATION (000031AF) IN CSECT(I7A16  ) LENGTH(2) 
2391 MVBUF ADDRESS. HEX LOCATION (000034A4) IN CSECT(I7A16 ) LENGTH(2) 1416 1421 
2395 2398 1283 RMDCB ADDRESS. HEX LOCATION(000031BE) IN CSECT(1I7A16  ) LENGTH(2) 
999 NG ABSOLUTE. HEX VALUE (0000002Cc) 1396 
2263 1306 RSBA ADDRESS. HEX LOCATION (00903188) IN CSECT (1716 soy LENGTH (2) 
994 NI > ABSOLUTE. HEX VALUE (00000027) 1172 1188 1199 1210 1232 43° 1254 1265 1276 
444 N00001 ADDRESS. HEX LOCATION (000025A0) IN CSECT(I7A16 ) LENGTH(2) 1195 RSDCB )BDBRESS. HEX LOCATION (0000313E) IN CSECT(I7A16  ) LENGTH(2) 
453 NO0002 ADDRESS. HEX LOCATION (000025B2) IN CSECT(I7A16 —) LENGTH (2) 9 RO ;RESISTER, HEX VALUE (00000000) 
465 N00003 ADDRESS. HEX LOCATION (000025C4) IN CSECT(I7A16  ) LENGTH(2) 0 R1 oREGISTER, HEX VALUE 00000001) 
477 N00004 ADDRESS. HEX LOCATION (000025D6) IN CSECT(I7A16  ) LENGTH(2) 0 R2 oREGISTER. HEX VALUE (00000002) 
480 N00005 ADDRESS. HEX LOCATION(000025DA) IN CSECT(I7A16  ) LENGTH(2) 0 R3 REGISTER. HEX VALUE (0.000000 3) 
327 466 1335 1337 1389 1392 1399 1400 1403 1406 1417 
483 N00006 ADDRESS. HEX LOCATION(000025DE) IN CSECT(I7A16  ) LENGTH(2) 1420 1436 1439 1442 1444 1465 1466 2087 2100 
330 454 2103 2104 2107 2109 2166 2167 2168 2202 2203 
4 86 N00007 ADDRESS. HEX LOCATION (000025E2) IN CSECT(I7A16  ) LENGTH(2) 2209 2213 2242 2243 2248 2261 2293 2338 2340 
333-442 2341 2349 2386 2387 2391 2403 
489 N00008 ADDRESS. HEX LOCATION(000025E6) IN CSECT(I7A16 ) LENGTH (2) 0 R4 REGISTER. HEX VALUE (00000004) 
336 739 1445 1446 1447 2093 2094 2097 2111 2112 2114 
501 N00009 ADDRESS. HEX LOCATION(000025FA) IN CSECT(I7A16  ) LENGTH(2) 2115 2118 2124 2132 2204 2205 2207 2211 2215 
339 2244 2245 2246 2256 2257 2258 2260 2263 2273 
504 N00010 ADDRESS. HEX_LOCATION (000025F2) IN CSECT(I7A16  ) LENGTH(2) 2275 2277 2280 2282 2467 2471 2503 2509 2512 
5 16 N00011 ADDRESS. HEX LOCATION(00002612) IN CSECT(I7A16  ) LENGTH (2) 0 R5 REGISTER. HEX VALUE (90000005) 
345 1336 1337 1390 1392 1398 1400 1404 1406 1418 
519 NO00012 ADDRESS. HEX LOCATION (00002616) IN CSECT(I7A16  ) LENGTH(2) 1420 1437 1439 1440 1442 1468 1466 2101 2103 
348 505 2105 2107 2123 2130 2252 2253 2254 2285 2286 
531 N00013 ADDRESS. HEX LOCATION (0000262C) IN CSECT(I7A16  ) LENGTH(2) 2288 2290 2339 2340 2385 2398 
351 0 R6 REGISTER. HEX VALUE (00000006) 
534 N00014 ADDRESS. HEX LOCATION (00002630) IN CSECT(I7A16  ) LENGTH (2) 1338 1339 1435 2099 2119 ‘2133 2169 2274 2279 
354 0 2281 2289 2292 2294 2344 2350 2352 2390 2395 
546 N00015 ADDRESS. HEX LOCATION (00002646) IN CSECT(I7A16  ) LENGTH(2) 2396 2468 2474 2504 2510 2518 
357 | 0 R7 REGISTER. HEX VALUE (00000007) 
558 N00016 ADDRESS. HEX LOCATION (0000265E) IN CSECT(I7A16 ) LENGTH(2) 1054 1334 1391 1397 1405 1419 1438 1441 1448 
360 1463 2102 2106 2113 2208 2249 2337 2342 2347 
561 N00017 ADDRESS. HEX LOCATION (00002662) IN CSECT(I7A16  ) LENGTH(2) 2380 2389 2392 240u 2407 2465 2501 
363 547 1015 SCTID ADDRESS. HEX LOCATION (000030C4) IN CSECT(I7A16  ) LENGTH(2) 
564 N00018 ADDRESS. HEX LOCATION(00002666) IN CSECT(I7A16  ) LENGTH (2) 1202. 1279 1335 1390 1393 1418 1421 
366 53 1206 SKDCB ADDRESS. HEX LOCATION (00003145) IN CSECT(I7A16 ) LENGTH (2) 
576 N00019 ADDRESS. HEX LOCATION(0000267C) IN CSECT(I7A16  ) LENGTH(2) 1382 
369 1072 START ABSOLUTE. HEX VALUE (000000043) 
588 N00020 ADDRESS. HEX LOCATION(00002694) IN CSECT(I7A16  ) LENGTH(2) 2116 
372 : 104 SUPSTAT ADDRESS. HEX LOCATION (000019C4) IN CSECT(I7A16  ) LENGTH(1) 
591 N00021 ADDRESS. HEX LOCATION (00002698) IN CSECT(I7A16  ) LENGTH(2) 2402 
375 577 92 TUMSGWTR |ADDRESS. HEX LOCATION(000018BA) IN CSECT(I7A16  ) LENGTH(1) 
603 N00022 ADDRESS. HEX LOCATION(000026B0) IN CSECT(I7A16  ) LENGTH (2) 2404 
378 76 TUPARM1 ADDRESS. HEX LOCATION (0000189A) IN CSECT(I7A16  ) LENGTH(1) 
606 N00023 ADDRESS. HEX LOCATION(000026B4) IN CSECT(I7A16  ) LENGTH(2) 2472 2507 
381 592 1044 TURTN ADDRESS. HEX LOCATION (OQOQ30FE) IN CSECT(I7A16  ) LENGTH (2) 
609 N00024 ADDRESS. HEX LOCATION (000026B8) IN CSECT(I7A16  ) LENGTH(2) 2409 2465 2476 2501 2520 
384 565 74 TUSTATUS ADDRESS. HEX LOCATTON (00061818) IN CSECT(I7A16  ) LENGTH(1) 
621 N00025 ADDRESS. HEX LOCATION(000026CE) IN CSECT(I7A16  ) LENGTH(2) 2379 
387 | 75 TUWORK ADDRESS. HEX LOCATION(0000181A) IN CSECT(I7A16  ) LENGTH(1) 
633 N00026 ADDRESS. HEX LOCATION(000026E6) IN CSECT(I7A16 ) LENGTH(2) 2382 2383 2384 2386 2442 
390 1053 T7A02 ADDRESS. HEX LOCATION (00003106) IN CSECT(1I7A16 ) LENGTH (6) 
6 36 N00027 ADDRESS. HEX LOCATION(Q00026EA) IN CSECT(I7A16  ) LENGTH(2) 443 455 467 491 506 21 536 548 566 
393 622 578 593 11. 623 638 656 668 686 701 
648 N00028 ADDRESS. HEX LOCATION (00002702) IN CSECT(I7A16 ) LENGTH (2) 1239 VRDCB ADDRESS. HEX LOCATION (0000317E) IN CSECT(I7A16  ) LENGTH(2) 
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